home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / lang / 3dterp10 / integv.trp < prev    next >
Encoding:
Text File  |  1994-12-08  |  1.2 KB  |  39 lines
  1. procedure main
  2. var
  3.         i : byte;
  4. endVar
  5.         setColor(15);
  6.         setPerspective(true);
  7.         load3dObject("Pyr", "pyr.3d2", 15);
  8.         move3dObjectTo("Pyr", -200, -140, 0);
  9.         load3dObject("Box", "box.3d2", 15);
  10.         move3dObjectTo("Box", -400, 0, 0);
  11.         load3dObject("Prop", "Prop.3d2", 15);
  12.         move3dObjectTo("Prop", 400, 0, 0);
  13.         for i := 1 to 45
  14.                 paint3dObject("Pyr");
  15.                 rotate3dObject("Pyr", "z", 20);
  16.                 move3dObject("Pyr", "x", 5);
  17.                 move3dObject("Pyr", "z", 10);
  18.                 move3dObject("Pyr", "y", 4);
  19.         endFor
  20.         setColor(1);
  21.         setPerspective(false);
  22.         move3dObjectTo("Pyr", 0, 0, 0);
  23.         for i := 1 to 9 
  24.                 paint3dObject("Pyr");
  25.                 rotate3dObject("Pyr", "z", 20);
  26.         endFor
  27.         setColor(14);
  28.         for i := 1 to 10 
  29.                 paint3dObject("Box");
  30.                 rotate3dObject("Box", "z", 9);
  31.         endFor
  32.         setPerspective(true);
  33.         setColor(2);
  34.         for i := 1 to 30
  35.                 paint3dObject("Prop");
  36.                 rotate3dObject("Prop", "z", 12);
  37.         endFor
  38. endProc
  39.